home *** CD-ROM | disk | FTP | other *** search
/ Especial Multimedia / Especial Multimedia.iso / Multimed / Prg / THRMDEMO.ZIP / FORM1.FRM < prev    next >
Text File  |  1997-09-14  |  1KB  |  46 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3135
  5.    ClientLeft      =   2925
  6.    ClientTop       =   3690
  7.    ClientWidth     =   6825
  8.    Height          =   3540
  9.    Left            =   2865
  10.    LinkTopic       =   "Form1"
  11.    MDIChild        =   -1  'True
  12.    ScaleHeight     =   3135
  13.    ScaleWidth      =   6825
  14.    Top             =   3345
  15.    Width           =   6945
  16.    Begin CommandButton Command1 
  17.       Caption         =   "Press for Thermometer"
  18.       Height          =   465
  19.       Left            =   1905
  20.       TabIndex        =   0
  21.       Top             =   1335
  22.       Width           =   3030
  23.    End
  24. End
  25. Option Explicit
  26.  
  27. Sub Command1_Click ()
  28.     Dim i, j As Integer
  29.  
  30.     Call ThermInitPercent(100, "Converting Invoice Table" + Chr(10) + Chr(10) + "Please wait...")
  31.   
  32.     For i = 1 To 100
  33.         For j = 1 To 1000
  34.             DoEvents
  35.         Next j
  36.         Call ThermTick
  37.         DoEvents
  38.     Next i
  39.     Call ThermClose
  40. End Sub
  41.  
  42. Sub Form_Load ()
  43.     Show
  44. End Sub
  45.  
  46.